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-- FindSigs.Mesa Edited by Sandman on May 18, 1978 3:18 PM 

DIRECTORY 

AltoDefs: FROM "aUodefs", 
AUoFileDefs: FROM "altof iledef s" , 
ControlDefs: FROM "control defs" , 
ImageDefs: FROM "imagedofs", 
ImageFilelnfoDefs: FROM "imagef ileinfodef s" , 
InlineDefs: FROM "inl inedef s" , 
lODefs: FROM "iodeFs", 
MiscOeFs: FROM "rniscdefs", 
OutputDofs: FROM "outpu tdef s" . 
SegmentDefs: FROM "segmentdef s" , 
StreamDefs: FROM "streamdef s" , 
StringDefs: FROM "stringdef s" , 
SymbolTableDefs: FROM "symboltabledef s" , 
SymDefs: FROM "symdefs", 
SystemDefs: FROM "systemdef s" ; 

DEFINITIONS FROM AltoDefs, AUoFileDefs, SegmentDefs; 

FindSigs: PROGRAM 

IMPORTS OutputDefs, SegmentDefs, StreamDefs, StringDefs, SymbolTableDefs, 

SystemDefs, ImageFilelnfoDef s , MiscDefs = 
BEGIN 

nsigs: CARDINAL; 

Sigltem: TYPE = RECORD [name: STRING, desc: CARDINAL]; 
sigdata: ARRAY [0..128) OF Sigltem; 

debugging: BOOLEAN ^ FALSE; 

PrintSignals: PROCEDURE [ 

symseg: FileSegmentHandle, name: STRING, gframe, gfi: CARDINAL] = 

BEGIN OPEN SymbolTableDefs, StreamDefs, SymDefs; 

tname: STRING <- [60]; 

modname: STRING <- [60]; 

ss : StringDefs.SubStringDes crip tor; 

symbols: SymbolTableBase; 

sei: ISEIndex; 

modout: BOOLEAN <- FALSE; 

t, desc: CARDINAL; 

gfimask: CARDINAL ^ 0; 

GetName: PROCEDURE [s: STRING, hti: HTIndex] = 
BEGIN 

symbol s.SubStr ingForHash[@ss , hti]; 
s . length ♦- 0; 

StringDefs. Appends ubString[s , @ss]; 
END; 

LOOPHOLE[gfimask,ControlDefs.ProcDesc].gfi ^ gfi; 

IF symseg « NIL THEN 

BEGIN OPEN OutputDefs: 

PutCR[]; 

PutString[name] ; PutString[" (cannot find symbols)"]; PutCR[]; 

RETURN 

END; 
symbols <- AcquireSymbo1Table[TableForSegment[symseg]] ; 

nsigs ^ ; 

WITH symbols. bb+FIRST[BTIndex] SELECT FROM 

Callable «> GetName[modname , (symbol s . seb+id) . htptr] ; 
ENDCASE; 
FOR sei <- symbols . Firs tCtxSe[symbols . stHandle.outerCtx] , 
symbols, NextSe[sei] UNTIL sei « ISENull DO 
OPEN id: ( symbol s . seb+sei ) ; 
IF id.writeonce THEN 

WITH (symbols. seb+symbols.UnderType[id.idtype]) SELECT FROM 
transfer «> 

IF (mode « signal OR mode ~ error) AND 

(symbols . seb+sei) . ctxnum « symbols. stHandle.outerCtx THEN 

BEGIN 

GetName[ tname, (symbols . seb+sei) .htptr]; 
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desc <- (symbols, seb+sei ). icivalue; 
t *- nsigs ; 
WHILE t > DO 

IF sigclata[t-l].desc < desc THEN EXIT; 

sigdata[t] <- sigdata[t-l] ; 

t <r t-1; 

ENDLOOP; 
nsigs ♦- nsigs+1; 

sigdata[t]<- [SystemDef s .All oca teHeapStri ng[tname. length] , desc]; 
St ringDefs. Appends tring[sigdata[t] . name, t name] ; 
END; 
ENDCASE; 
ENDLOOP; 

IF nsigs > THEN 

BEGIN OPEN OutputOefs; 
PutCR[]; 

PutNumber[gframe, [8, FALSE, TRUE ,6]]; 
PutString["B "]; 
PutString[modname]; PutCR[]; 
FOR t IN [0. .nsigs) DO 
PutStringC" "]; 

PutNumber[sigdata[t].desc+gfimask, [8, FALSE, TRUE, 6]]; 
PutString[;"B "]; 

PutString[sigdata[t].name]; PutCR[]; 
ENDLOOP; 
END; 
ReleaseSymbolTable[symbo1s]; 
RETURN 
END; 

ListSignals: PROCEDURE = 

BEGIN OPEN ImageFilelnfoDefs; 

MungeModule: PROCEDURE [f: Global FrameHandle] RETURNS [BOOLEAN] « 
BEGIN 

BadName: PROCEDURE » 
BEGIN OPEN OutputDefs; 

PutString[name] ; PutString[" (problems encountered)"L] ; 
END; 
BadFrame: PROCEDURE » 
BEGIN OPEN OutputDefs; 

PutOctal[f]; PutString[" (problems encountered)"L] ; 
END; 
seg: FileSegmentHandle; 
name, length <- 0; 
BEGIN 

FrameToModuleName[f , name I ANY => BEGIN BadFrame[]; GOTO ret END]; 
seg <r SymbolSegForFrame[f I ANY => BEGIN BadNameC]; GOTO ret END]; 
PrintSignals[seg, name. LOOPHOLE[f], VirtualGlobalFrame[f ] . gf i 1 

ANY => BEGIN BadName[]; CONTINUE END]; 
EXITS ret => NULL; 
END; 

RETURN[FALSE] 
END; 
name: STRING ♦- [40]; 

[] <~ ImageFileInf oDef s.EnumerateGlobal Frames[MungeModule] ; 
OutputDefs.CloseOutput[]; 
END; 

CheckForExtension: PROCEDURE [name, ext: STRING] » 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .name. length) DO 

IF name[i] « ' . THEN RETURN; 

ENDLOOP; 
StringDefs . Appends tring[ name, ext]; 
RETURN 
END; 

Processlmage: PROCEDURE - 
BEGIN 

infile: STRING <- [40]; 
root: STRING ^ [40]; 
i: CARDINAL; 
GetToken[inf ile]; 
IF infile. length « THEN SIGNAL Done; 
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CheckForExtension[infne, ".image"]; 
FOR i IN [0. .infile. length) DO 

IF infne[i] » ' . THEN EXIT; 

StringDef s.AppendChar[root, inf ne[i]]; 

ENDLOOP; 
Image Fi lelnfoDef s .Setlmage[ infile] ; 
ImageF i 1 el nfoDefs.FindAll Symbol s[]; 
OutputDef s . Ope nOut put [root, ".signals."L]; 
WriteHerald[inf ile]; 
ListSignals[]; 
RETURN 
END; 

WriteHerald: PROCEDURE [name: STRING] « 
BEGIN OPEN OutputDefs; 
PutString[name]; 
PutString[" -- "L]; 

PutTime[ ImageF il el nfoDefs .Version[]. time]; 
PutCR[]; PutCR[]; PutCR[]; 
RETURN 
END; 

GetToken: PROCEDURE [token: STRING] « 
BEGIN 

c: CHARACTER; 
token. length *- 0; 
UNTIL comstr . endof [comstr] DO 

SELECT c ^ comstr. get[comstr] FROM 

lODefs.SP. lODefs.CR => IF token. length # THEN RETURN; 
ENDCASE => StringDefs.AppendChar[token, c]; 
ENDLOOP; 
RETURN 
END; 

GetCommandLineStream: PROCEDURE RETURNS [s: StreamDef s .StreamHandle] 
BEGIN OPEN StreamDefs; 

cfa: POINTER TO Al toFi leDef s .CFA ♦- MiscDef s . CommandLineCFA[] ; 
s ^ CreateByteStream[SegmentDef s. InsertFile[@cfa.fp, Read], Read]; 
JumpToFA[s, Qcfa.fa]; 
RETURN 
END; 

Done: SIGNAL = CODE; 

-- Main Body 

name: STRING 4- [80]; 

comstr: StreamDef s .StreamHandle *■ GetCommandLineStream[]; 

DO 

ProcessImage[ 1 Done ~> EXIT]; 

ENDLOOP; 
ImageDefs .StopMesa[]; 

END.. . 



